PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PP PPP 


PP PPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 
PPPPPPPPPPPP 


AAAAAAAAA 

AAAAAAAAA 

AAAAAAAAA 
aka AAA 
AAA AaB 
AAA AAR 
AAA AAA 
AAA AAA 
AA AKA 
AAA AAA 
AAA AAA 
AAA AAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAAAAAAAAAAAAAA 
AAA AAA 
AAA AAA 
AAA RAD 
AAA AAA 
AAA AAA 
AAA AAA 


RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR 

RRR 

RRR 

RRR 

RRR 

RRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRRRRRRRRRRR 
RRR = RRR 
RRR = RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR RRR 
RRR 

RRR 

RRR 


—— 


tt tt Ht tt St SH A HH A at HH Ht 
A a tH SH tH Ht 
tt tH SH Ht HH HHH 


LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 
LLLLLLLLLLLLLLL 


**F I LE**]D**PASWRISTR 


. 
e 
. 
o 
. 
o 
. 
e 
. 
e 
. 
e 
* 
e 
. 
o 
> 
e 
© 
° 
. 
. 
. 
a 
. 
o 
. 
e 
- 
e 
a 
6 
© 
o 
° 
e 
7 
e 
+ 
e 
~ 
o 
. 
o 
7 
° 
. 
oe 
. 
° 
. 
ce 
° 
os 
© 
o 
. 
a 
a 
a 
. 
oO 
. 
o 
. 
o 
7 
e 
+ 
o 
. 
e 
. 
e 
2 
. 
. 
e 
o 
* 
7 
2 
. 
a 
. 
se 
& 
e 
o 
a 
7 
ao 
. 
o 
= 
a 
> 
a 
e 
- 
° 
7 
a 


| 
PPPPPPPP ABRAAA SSSSSSSS WW WW RRRRRRRR III] SSSSSSSS TTTTTTTTTT RRRRRRRR 
PPPPPPPP AAAAAA SSSSSSSS WW WwW RRRRRRRR III SSSSSSSS_ TTTTTTTTTT RRRRRRRR 
PP PP AA AA SS ‘alll Ww RR RR I] SS TT RR RR 
PP PP AA AA SS wind Ww RR RR I] $$ TT RR RR 
PP PP AA AA SS wile! Ww RR RR I] $$ TT RR RR 
PP PP AA AA SS Www WW RR RR I] SS TT RR RR 
PPPPPPPP AA AA SSSSSS WW Ww RRRRRRRR II SSSSSS TT RRRRRRRR 
PPPPPPPP AA AA SSSSSS WW RRRRRRRR I] SSSSSS TT RRRRRRRR 
PP AAAAAAAAAA SS WW Ww WW RR RR II SS TT RR RR 
PP AAAAAAAAAA SS WW WW Ww RR RR I] SS TT RR RR 
PP Aa Ab SS WWwWW RR RR II SS TT RR RR cece 
PP AA AA SS WWWW WhWW RR RR I] SS TT RR RR esos 
PP AA AA SSSSSSSS Wiel Ww RR RR IIIITI SSSSSSSS TT RR RR cece 
PP AA AA SSSSSSSS ‘al WW RR RR I1I111 SSSSSSSS TT RR RR cece 
LL IIIII] SSSSSSSS 
LL III] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III111 SSSSSSSS 
LLLLLLLLLL HII] SSSSSSSS 
| 
| 


F 10 
16-Sep-19 725:5 AX-11 Bliss-32 V4.0- 
14- 30-1984 93: $39 : PASRTL. PgR RCIP PASWRISTR 


MODULE PASSWRITE STRING ( epAste ‘Write a aed sir strin + 
TDENT le: PASWRISTR.B32 Edit: $B8L1002 


PASSWRITE_STRIN Write 


fixed-length string 


3? 
wr 
Nh 
™M 
Se 
— 
v0 
yy 
Q 
rT) 
~~ 
— 
as 


BEGIN 


SRR RAA ARERR AEE AAA AAA EAERAE RARER 
® 
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is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 

® 

® 
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is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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3 i 
; ABSTRACT: 
3 i This module contains a procedure which writes a fixed-length string 
; to a textfile. 
3 ; ENVIRONMENT: User mode - AST reentrant 
rs Boe AUTHOR: Steven B. Lionel, CREATION DATE: 1-April-1981 
4 004 i MODIFIED BY: 
4 004 i 
44 044 ' 1-001 = Original. SBL 1-April-1981 
45 045 i 1-002 - Make total-width a longword. SBL 30-June-1982 
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RSBTTL ‘Declarations’ 
; PROLOGUE DEFINITIONS: 


REQUIRE 'RTLIN:PASPROLOG'; 


TABLE OF CONTENTS: 


! Externals, Linkages, PSECTs, structures 


FORWARD ROUTINE 
PASSWRITE STRING: NOVALUE 


! Write string to textfile 
PASSWRITEV_STRING: NOVALUE; 


! Write string to string 
MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 
FIELDS: 
NONE 
OWN STORAGE: 
NONE 


Page (28 | 
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SWRITE_STRING : Urite a a fixed-length string 14-Sep- att 93: $3:38 PASRTL.SRCIJPASWRISTR. 4 231 ’ 
BITL ‘PASSWRITE SRS - yrise Ps fixed-length string to textfile' 
OBAL ROUTINE pas toned HG STR 
gf spite SVARIABLE, ! File variable 

STRING. ef ENG tH: Length of string 

STRING, Address of string 
Error unwind address 
Total field width 


f 
E 
%S 
GL 


ERROR, 
“s yhOTAL WIDTH: SIGNED 
'+¢ 
j FUNCTIONAL DESCRIPTION: 
This procedure writes a fixed-length string to the specified textfile. 
CALLING SEQUENCE: 
CALL PASSWRITE_STRING (PFV Fy STRING LENGTH.rw.v, STRING. rt.r 


j S108 EFFECTS: 
If the file is the standard file INPUT or OUTPUT, it is implicitly opened. 
i SIGNALLED ERRORS: 


LINTOOLON = Line too Long 
NEGWIDDIG = negative Width or Digits specification is not allowed 
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, C, CER TOTAL_WIDTH.rl.vJJ) 

: i FORMAL PARAMETERS: 

1 PFV - The Pascal File Variable (PFV) passed by reference. 
: _ The structure of the PFV is defined in PASPFV.REQ. 
' STRING_LENGTH = The Length of the string to write 

: STRING - The address of the string to write 

1 ERROR - Optional. If specified, the address to unwind to 
; in case of an error. 

1 TOTAL WIDTH - Optional. Total field width, defaults to string length. 
: IMPLICIT INPUTS: 

: NONE 

: IMPLICIT OUTPUTS: 

: NONE 

' {ROUTINE VALUE: 

: NONE 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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i Enable argument 


BUILTIN 
ACTUALCOUNT; 


ENABLE 
PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); 


! Count of arguments 


14 

Get ERROR parameter, if present. 

IF ACTUALCOUNT () GEQU 4 
ERROR_ADDR = .ERROR; 

PFV_ADDR = PFV CPFVSR_PFVI; 


! Set unwind address 
! Set PFV address 


14 
Validate PFV and get PFV. 


PASSSVALIDATE_PFV (PFV CPFV$R_PFVI]; FCB); 
1+ 

Set unwind action to unlock file. 
UNWIND_ACT = 


14 
Do common initialization. 


PAS$K_UNWIND_UNLOCK; 


PASSSINIT_WRITE (PFV CPFVSR_PFVJ, FCB CFCBSR_FCBJ; FCB); 


'¢ 
a See if we have enough room in the record. 


IF ACTUALCOUNT () GEQu 5 
BEGIN 
FELD WIDTH = .TOTAL_WIDTH; 
dF gf TELD_ WIDTH LSS O 
SPAS$IO_ERROR (PAS$_NEGWIDDIG,0); 


ELSE 


FIELD_WIDTH = 


LOCAL 

FCB: REF SEASSFCB_CONTROL. BLOCK, : file Control block 
ate width of field 
PFV LABDRs VOLATILE, Enable argument 
UNWIND_ACT: VOLATILE, i Enable argument 
ERROR_ADDR: VOLATILE; 

- STRING_LENGTH; 


Db db db end enendeenendedeen 8-4-4-4 824-48 SOOO OOOO erenenennmannnn Penne ne 
oOOo0Ood0Owewo Co: ONIN NNN NNN NNO OO PDAEAQCAASAMANMIMNIVINVINUII ES SPELL PLES ~m 
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! Enable error handler 


eee 


-v 
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“1s oe > 0 hel alata Write a fixed-length string 


DENT \1 \ 

EXTRN PASSWRITE STRING 
-EXTRN PASSWRITEV STRING 
-EXTRN PASS$$IO_HANDLER 
-EXTRN PASSSVACIDATE_PFV 
-EXTRN PASSSINIT_WRITE 


$ 
“EXTRN PASSSSIGNAL, PASSK_NEGWIDDIG 
SEXTRN PASS$K_LINTOOLON 
[EXTRN PASSSEND_WRITE 
-PSECT _PASSCODE,NOWRT, SHR, PIC,2 
03FC 00000 .ENTRY PASSWRITE_STRING, Save R2,R3.R4,R5,R6,R7,~ 


R8,RI 
59 000000006 00 9€ 0000 MOV PASSSSIGNAL, R9 
5E 08 5 0000 SUBL #8, SP 


0144 
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PASSWRITE_STRIN Write a fixed-length strin 1b-Se 1984 02:25:5 AX=11 Bliss-32 V4.0-74 P 5 

1-002 PASOWRITE_STRING = Write a fixed-length string 14-Sep-1986 93:83:6 PASRTL SRESPASURISTR B92; 1 a 

3; 7 7 BEGIN : 
; 199 34 LOCAL PF 
; 198 EXTRA; ' Extra characters pest end of Line : 
; 199 60 EXTRA = (.FCB EFCBSA_RECORD. CUR + FIELD WIDTH) = .FCB CFCBSA_RECORD_END]; : 
: 200 61 TF EXTRA GTR 
; 0¢ 8 SPASSIO_ERROR (PAS$_LINTOOLON,1,.EXTRA); ; 
: 87 ee END; : 
: 205 0 66 + ; 
; 206 6 ! Move leading blanks, if any 3 
: $08 e9 e 
: 209 70 IF_.FIELD_WIDTH = .STRING_LENGTH GTR 0 ; 
: 210 71 THEN 3 
; 211 8 ie BEGIN 3 
5 \¢ 7 FCB CFCBSA_RECORD_CUR] = CHSFILL (4C° ', .FIELD_WIDTH - .STRING_LENGTH, : 
: 1 0274 -FCB CFCBSA_RECORD_CUR]); : 
: 214 8 75 FIELD_WIDTH = .STRING_CENGTH; F 
: $8 0577 ht: ; 
: 217 0278 + ; 
: 218 0279 ! Move string to buffer : 
; 226 0581 < 
3 $3 os8¢ FCB CFCBSA_RECORD_CUR] = CHSMOVE (.FIELD_WIDTH, .STRING, .FCB CFCBSA_RECORD_CUR]); 2 
ie BBE : 
; 226 0285 ' Call WRITE epilogue routine to move the Last character written to the 3 
3 a2 0286 ' user's buffer and to unlock the file variable. 3 
Be BE : 
; 328 0289 PASSSEND_WRITE (PFV CPFVSR_PFVJ, FCB CFCBS$R_FCB)); : 
: 286 0991 RETURN; : 
: 232 $598 1 END; ! End of routine PASSWRITE_STRING 3 
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1-002 PASSWRITE_STRING 3 urite 2 fixed-length string 12-88-1382 95:43:38 PASRTL SREIPASUNTE TR B42: . 
7E D4 C CLRL _- ERROR_ADDR ; 

04 AE Ti oF CLRO NWIND_ACT : 

6p 0082 CF MY: 1 MOVAL 6$, (FP) : 

4 ¢ 18 CMPB_ ss (AP), #4 : 

4 if ot BLSSU : 

ge 10 AC D 18 OVL ERROR, ERROR_ADOR : 

6 04 AC DO OOO1F 1$: MOVL m : 

08 AE p 0 ; MOVL 6, PFV_ADDR ; 

000000006 6 0 JSB PASSSVACIDATE_PFV : 

04 AE 1 =O 02D MOVL #1 NWIND_A r 

000000006 00 6 031 JSB PASS INIT _GRITE : 

se $5 3 p03, sseu oe’ 

58 14 ac 09 00 MOVL TOTAL_WIDTH, FIELD_WIDTH : 

OE 18 0004 BGEG © 3$ ; 

E D4 0004 CLRL =(SP) : 

7E 006 BF 9A 00044 MOVZBL #PASSK_NEGWIDDIG, -(SP) : 

69 2 FB 0048 CALLS #2, PASSSSIGNAL : 

58 08 Ac g 004¢ a8: MOVZWL STRING_LENGTH, FIELD WIDTH : 

50 58 EC A? C1 00050 3$: ADDLS -20(FCB), FIELD_WIDTA, RO : 

50 FO A? ce 0055 SUBL2 <-16(FCB). EXTRA : 

oc 1 0059 BLEQ 4$ : 

50 DD 00058 PUSHL EXTRA : 

01 DD 0005p PUSHL @# : 

7E 006 8F 9A 90056 MOVZBL #PASS$K_LINTOOLON, -(SP) : 

69 03 FB 00065 CALLS #3, PASSSSIGNAL : 

58 08 Ac 10 00 ED 90067 4$: CHPZV #0, #16, STRING_LENGTH, FIELD_WIDTH : 
50 08 Ac 3¢ 0006F MOVZWL STRING_LENGTH, RO : 

50 58 50 C3 00073 SUBL3 RO, FIELD WIDTH, RO : 

50 20 6E = 09 2c 90077 MOVCS #0, (SP),~#32, RO, a-20(FCB) ; 
EC A? 53 pO S007E MOVL 3, -20(FCB) : 

58 08 AC 3C 00082 MOVZWL STRING LENGTH, FIELD_WIDTH : 

EC 867 0c BC 38 28 00086 5$: MOVC3 FIELD QIDTH, @STRING, a-20(FCB) F 
EC A? 53 D0 0008C MOVL R3, -20(FCBS : 

000000006 00 16 00090 JSB PASSSEND_WRITE ; 

04 00096 RET : 

0000 00097 6$: «WORD Save nothing : 

50 08 AC DO 00099 MOVL  8C(AP), RO : 

50 04 Aad 00 0009D MOVL  4(RO). RO ; 

F4 Ag F OA PUSHAB ERROR ADDR ; 

F8 AO OF OOOA4 PUSHAB UNWIND ACT : 

FC A 9F 000A7 PUSHAB PFV_ADDR : 

Q DD OOOAA PUSHL # F 

E DD OOOAC PUSHL ; 

7E 04 AC 7D OOOA MOVO. 4(AP), -(SP) : 

000000006 00 0 FB 008 CALLS #3, PAS$SS$IO_HANDLER ; 


3; Routine Size: 186 bytes, Routine Base: _PASSCODE + 0000 


; $32 OE 1 
2 34 0295 1 !<BLF/PAGE> 
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1-002 PASSURITEV. STRING’ = write Sering to string 12-Sep-19 4 95:83:38 PASRTL.SRCJPASWRISTR.B52;1 . (4) 1 
H $ + 1 ZSBTTL ‘PASSWRITEV_STRING = Write string to string’ : 
: 97 1 GLOBAL ROUTINE PASSWRITEV_STRING ( : 
3 8 38 1 MAX_LENGTH: WORD, ! Maximum Length of string ; 
3 99 1 STRING_LINE: REF VECTOR C, WORD], ! String to write to , 
; 240 00 1 STRING_LENGTH: WORD ; Lengt of STRING : 
: 241 o1 1 STRING: REF VECTOR (, woRD], i String to write : 
3 tg ¢ 1 RROR, ! Error unwind address ‘ 
3 26 03 1 TOTAL WIDTH: SIGNED ! Total field width : 
; 246 06 1 ) : NOVALOE = : 
; 245 0S 1 : 
; 246 0 Bg 1 S44 : 
; rtf 8 of } : FUNCTIONAL DESCRIPTION: : 
; rh 8 % ! This procedure writes a string to the specified string. : 
; 2) 0311 ; } CALLING SEQUENCE: : 
; 2 O38 1! CALL _PASSWRITEV_ STRING (MAX LENGTH.rw.v, STRING_LINE.wvt.r, : 
; See baie : } STRING_LENGTA.rw.r, STRING. rt.r C, ERROR.j.rJ C, TOTAL_WIDTH.rl.vJJ) : 
; 256 be18 1 ! FORMAL PARAMETERS: : 
; See 0317 1! : 
; $28 oai8 : MAX_LENGTH - The maximum Length of STRING_LINE. : 
3 soe O59 : } STRING_LINE - A varying string to which the output will be appended. : 
; 362 O32 1 STRING_LENGTH = The Length of STRING. ; 
; 26 0323 1! : 
; ¥¢) b3Se : STRING - The string to write. ; 
; 266 0326 1! ERROR - Optional. If specified, the address to unwind to : 
; 24 b856 : in case of an error. : 
: 269 O33 1! TOTAL_WIDTH - The width of the field to write. Optional, defaults : 
; 270 0330 1! to STRING_LENGTH. : 
3 ery 0331 1! ; 
; ste Oea¢ 1 ! IMPLICIT INPUTS: 3 
3 oe? 0333 1! : 
: 274 0334 1! NONE : 
: re 0335 1! : 
; 76 0336 1 ! IMPLICIT OUTPUTS: ; 
3 are OSs7 7! : 
; re 0338 1! NONE : 
: 443 0339 1! 3 
3; 280 0340 1 ! ROUTINE VALUE: : 
; $B) 0341 1! : 
: ag Oee§ ,! NONE . 
: 28 0343 1! : 
3; 284 Osee 1 ! SIDE EFFECTS: : 
B ene 8 45 1! : 
; #08 1! NONE : 
; ao O3¢ 1} : 
; 288 rt 1 ! SIGNALLED ERRORS: : 
; so 7! See PASSWRITE_STRING : 
; 291 ime 3 
3; 292 52 1 !e- : 
' 


iecantnemantienrmantndenainianmsatian 4 
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1-002 PASSURITEV. STRING’= write String to string aaa 1 95:83:38 PASRTL.SRCJPASWRISTR.B52;1 . «8 
; 2 8 301 ; 
> 294 4 BEGIN 3 
; 295 0355 : 
3 38 8 § CAL 3 
; PFV: SPASSPFV ay WARTIME. ! Pascal File Variable : 
; 298 0 28 ARG_LIST: VECTOR C6, LONG), ! Argument List ; 
; ey 035 PFV-ADDR: VOLATILE, ! Enable argument : 
; 300 0360 UNWIND_ACT: VOLATILE, ! Enable argument : 
; 4 8 °] ERROR_ADDR: VOLATILE; ! Enable argument : 
: 08 8 BUILTIN ; 
; Be re ACTUALCOUNT; ! Count of arguments : 
; 306 66 ENABLE 3 
3 4 Oaep PASSSIO_HANDLER (PFV_ADDR, UNWIND_ACT, ERROR_ADDR); ! Enable error handler : 
; 309 0369 '¢ : 
; 310 0370 ! Get ERROR parameter, if present. 3 
; 311 0371 !- 3 
3 \¢ b378 3 
; aE O3o7 IF ACTUALCOUNT () GEQU 5 : 
5 315 O32 ERROR_ADDR = .ERROR; ! Set unwind address : 
s Si7 0377 PFV_ADDR = PFV CPFVS$R_PFV); ' Set PFV address : 
; 318 0378 $ 
; 319 0379 + 3 
: 320 0380 ! Set up ARG_LIST. F 
; 321 0381 !- : 
3 Bee Bae6 3 
; 323 038 ARG_LIST (0) = 3; ! Three arguments 3 
; 324 0384 ARG_LIST C1) = PFV CPFVSR_PFVI; ! PFV address : 
: 325 0385 2 ARG_LIST $4 = STRING LENGTH: ' Length of STRING : 
; 326 0386 2 ARG_LIST (3) = STRING [0); ! String to write 3 
3 Ser 0387 2 IF ACTUALCOUNT () GEQU 6 : 
; 328 0388 THEN 3 
; 4 0389 BEGIN 
3 ; 0 0390 ARG_LIST Pf, = 5; ' Add two more arguments 
$ «(Sat 0391 3 ARG_LIST (4) = 0; ! Error address 
; 332 039 3 ARG-LIST £5] = .TOTAL_WIDTH; | Field width 
3 $3 039 § END; 
3; 334 B33e 
3 335 0395 2 te 
3 $$ Ba09 ' Call PASS$DO_WRITEV to do the work, giving it the address of 
; 39 i PAS$WRITE_STRI 
a bard Bees 
; 340 0400 PAS$S$DO_WRITEV (PFV CPFVSR_PFV), .MAX_LENGTH, STRING_LINE (CO), ARG_LIST, 
A 1 0401 PASSWRITE_STRING); 
: ri} 040 
; 34 040 RETURN; 
3s 344 404 
3; «345 405 1 END; ! End of routine PASSWRITEV_STRING 


.EXTRN PASSS$DO_WRITEV 


| 


; Routine Size: 128 bytes, Routine Base: _PASSCODE + OOBA 


308 0406 1 
47 0407 1 !<BLF/PAGE> 
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1-002 PASSURITEV STRING’= write Zering to string 12-8081 382 95:43:38 PASRTL SREIPASUAISTR B42 9 4) 
007¢ 000 .ENTRY PASSWRITEV_STRING, Save R2,R3,R4,R5,R6 : 0297 
5E 30 cs 009 SUBL2 wee -. : 
E p 0 CLRL ERROR_ADDR + 0354 
04 AE 7C 900 CLRO YNWINb ACT : 
6D O04F CF bE 0 A MOVAL 3$, (FP) : 
05 6C 000F CMPB. ss AP), #5 : 0373 
04 iF 00012 BLSSU : | 
6 14 AC DO 00014 MOVL ERROR, ERROR_ADDR : 0375 
08 AE 24 AE H 0018 1$ MOVAB PFV, P : 0377 
OC AE 03 D0 0001D MOVL #3, ARG_CIST : 0383 
10 AE 24 AE 3 09 1 MOVAB PFV, ARG_LIST+4 : 0384 
14 AE C AC 3C 6 MOVZWL STRING_LENGTH, ARG_LIST+8 + 0385 
18 AE 10 AC dO 00028 MOVL STRING, ARG_LIST+12 + 0386 
06 6C 91 000 9 CMPBSs«CAP), #6 : 0387 
OC 1F 0003 BLSSU : 
OC AE 05 00 90035 MOVL #5, ARG_LIST + 0390 
1¢ AE D4 00039 CLRL  ARG_LIST#16 + 0391 
20 AE 18 AC DO 9003¢ MOVL TOTAL_WIDTH, ARG_LIST+20 + 0392 
5 FFO1 CF 9E 00041 2$ MOVAB PASSWRITE_STRING, R5 : 0400 
54 OC AE 9E 00046 MOVAB ARG_LIST,~R4 : 
56 24 AE 9E 00044 MOVAB - PFV ; 
54 08 AC 00 OO4E MOVL STRING LINE, R3 ; 
52 04 aC 3C 0005 MOVZWL MAX_LENGTH, R2 3 
000000006 00 16 00056 JSB PASS$D0_WRITEV : 
04 0005C RET + 0405 
0000 00050 3$ «WORD Save nothing + 0354 
50 08 AC 00 0005F MOVL (AP), R : 
50 04 AO 00 00063 MOVL  4(RO). R F 
cc AO 9F 00067 PUSHAB ERROR_ADDR s 
dO AO 9F OO06A PUSHAB UNWIND ACT - 
D4 AO 9F 0006D PUSHAB PFV_ADDR : 
03 DD 00070 PUSHL #3 : | 
5E DD 00072 PUSHL SP ; 
7E 04 AC 7D 00074 MOV 4(AP), -(SP) : 
000000006 00 03 FB 00078 CALLS #3, PASS$$IO_HANDLER ; 
04 0007F RET 3 
| 


\s SURITE. STRIN Write a fixed-length s 


Bete Ge Se Ge Ge Ge 


i 


~$255$DUA28: 
~$255$DUA28: 


Elapsed Time: 
Lines/CPU Min: 


Name 
_PASSCODE 


F 


SLESS/CHECK@CE TEL, INET IAL SUPT SMLEE)/WOTRACE/L ESe1 [SS cPASURISTR/CR90RIS cPASURISTA MSRC$:PASWRISTR/UPDATE=(ENHS$:PASWRISTR 


ile 


18-Sep-1964 92:25:56 yarett BL ieg-52 v4.0 


pre ! END ! End of module PASSWRITE_STRING 
O16 0 ELUDOM 


rin 
PASSWRI TEV STRING = write Zering to string 


PSECT SUMMARY 
Bytes Attributes 
314 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ounnaene Symbols -----<--- Pages Processing 

Total Loaded Percent Mapped Time 
SYSLIBIJSTARLET.L32;1 9776 0 0 581 00:01.0 
PASRTL.OBJJPASLIB.L32;1 427 96 22 33 00:00.4 


COMMAND QUALIFIERS 


0 data bytes 


Lexemes/CPU-Min: 153875 


Memor 
Comp i 


{a 


Used: 


90 pages 


tion Complete 


v4.0 
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R.B42;1 


pan 


-v 
= ok 
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